(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    134866,       2973]
NotebookOptionsPosition[    129810,       2882]
NotebookOutlinePosition[    130167,       2898]
CellTagsIndexPosition[    130124,       2895]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Piecewise", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"4", "*", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"E", "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "x"}], "*", 
            RowBox[{"10", "^", 
             RowBox[{"-", "2"}]}]}], ")"}]}]}], ")"}]}], ",", 
      RowBox[{"x", "<", "370"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"4", "*", 
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"(", 
            RowBox[{"x", "-", "370"}], ")"}]}], "*", 
          RowBox[{"10", "^", 
           RowBox[{"(", 
            RowBox[{"-", "2"}], ")"}]}]}], ")"}]}]}], ",", 
      RowBox[{"x", ">", "370"}]}], "}"}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.7823840550933795`*^9, 3.782384091663085*^9}, {
  3.7823841282024307`*^9, 3.782384229297176*^9}, {3.782384335474972*^9, 
  3.7823843456976805`*^9}, {3.7823844343912363`*^9, 3.7823844422880354`*^9}, {
  3.7823849900195103`*^9, 3.7823850503556323`*^9}},
 CellLabel->
  "In[751]:=",ExpressionUUID->"b0260989-7d08-49d8-a6d7-5bb51d0b7a85"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\[Piecewise]", GridBox[{
       {
        RowBox[{"4", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", "x"}], "/", "100"}]]}], ")"}]}], 
        RowBox[{"x", "<", "370"}]},
       {
        RowBox[{"4", " ", 
         SuperscriptBox["\[ExponentialE]", 
          FractionBox[
           RowBox[{"370", "-", "x"}], "100"]]}], 
        RowBox[{"x", ">", "370"}]},
       {"0", 
        TagBox["True",
         "PiecewiseDefault",
         AutoDelete->True]}
      },
      AllowedDimensions->{2, Automatic},
      Editable->True,
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{
       "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.84]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}},
      Selectable->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.35]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  "Piecewise",
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{{3.7823842120074472`*^9, 3.7823842301050158`*^9}, 
   3.782384346522461*^9, 3.7823844453577895`*^9, {3.7823850101626434`*^9, 
   3.782385053846298*^9}},
 CellLabel->
  "Out[751]=",ExpressionUUID->"d8699588-1502-4518-bd47-519481ab83eb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"Plot", "[", 
   RowBox[{"%", ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "600"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7823842362869973`*^9, 3.7823842520865726`*^9}, {
  3.7823851061869316`*^9, 
  3.7823851238091326`*^9}},ExpressionUUID->"3f6d9f43-0877-4d8f-82cf-\
714a04ccbb6f"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVx300lQcAx/Ermvf7aLfjXpK8lbot0jCTPL+Yl0NTGrFV3t9fovDcYxmd
hBn3TnOXVd7zWu5NNdItRx0HTaPLXC+RxrHkmndxTWN3f3zP93wMg+JOhm6h
0WikvP//4NSH9zOCKXsa7VLuibhS++x2vwFPXgdJE95VadyVSua9unxRnzdA
0hq3VZxl8Uj+BL9LiTdJ0sy1jbTVislrU0Urq9xV8tJ0vuIfMwKSGWOUs8BV
hsH3CjtfNjSTPoIQ71kuE3kF8+uJLl3kaleG6G+uKSL0atWNzo+QD7b3aGbm
2CBgNMNrbHiajN9vKW4+7ICJTqZPGm+J1HZZ5f/GcAV/SDE8PUlGLjUzo8qj
PDBao6I1yv6XzPDXZxWwT0L2nGSsZdJQx/VPd/T3RsRu6YQgeAt2JJ+JkV3x
hUNsZGH/piKqa4e7MhNPg/7e1NTWayu6s7IfXrzlB2ltRvXgjY/wg2REY3d3
AOoqM59F1yhD3NabouUYBLF4JdwnXwUTGn8evDsQjNvp/ZasJFVkUWZltp6h
2Mtupqeaq2HVmu+dLA1DNNEmMB9Xg3r/gKtdSgTahB6tohR1CAvOyKYXI/F1
eGVI4Ad16NfLpj2yo2FXqjo+R2lg57TkZrFSLILK5mp0RzQgTen8sazkHMzC
wv1oRzQhoDwC+TrxiIvMTGjN08QBDPp2S+Jha2G0OSvRBKMhdnGs7DyU/Fec
XFl0HH1sLI0OuACLkqonqsfpeFbvqmCzIwFZ+WY6Lal0VHsmi17/lYB355Kb
8uvokKR39qyVJ+IXPmNXVC8dUYGmOXNxSXhn9c9s3QodnmZLwaafUyBL9j1S
1ibQ+aZbT9uOwphMEpYkt8PV2xIlksJ3HqyxcbktlwNdxr+g4OTWcriZSUBb
JGYXnaAwxLfOjdMhMOIkXPg4gkLzoSphpx6BiLORaRvXKMSkGhafNiYwRney
mblOYbIqXKNV7m+eGiwMF1LQzbVwY5sQcDceDHpUToEZc8dSJrfZlLNzopDC
Q7d7HVf3EFhONNGUtlHoYdxbe7yPQOweWvvgcwq1bq1RBmwCbweGUzteUHi5
2FJ3Re4B2/z5ih4Khv3iW8f2ExDRtvT5v6bgFdAU8OoTAmm5b25Iliko8Zr2
zpgTqIpxFCnKKKgrhMycOkjg92PVQxbrFKy63VOeys3SjGPxFDj4VnRk7ScL
AvYzvZ89UeKg0jd1cl3u0C5rH6kyB4bHI0pDDhG4z9342ZnOAeNOxQWrTwkM
xgY1JG7jQN/wQG6R3BtftveVb+fgV60X8VstCZiYsZfFTA56/K8bxMrtTucx
NnU5aHt7/2af3IWXC76a1+PApZ5oZFgR+A/zPcH3
        "]], LineBox[CompressedData["
1:eJwBsQNO/CFib1JlAgAAADoAAAACAAAAYn1orA8jd0CGr4NtV/APQOSOHZG3
J3dAEn+Qc5XYD0AKb4Gw5Sp3QClIx1FlyA9AMU/lzxMud0DFAYtqPbgPQH4P
rQ5wNHdAIy8AOwaYD0AXkDyMKEF3QO6iCOP5Vw9ASpFbh5lad0C3pLaxZdkO
QHBxv6bHXXdAb/VqR7fJDkCWUSPG9WB3QJojvNUQug5A4xHrBFJnd0C3AQLM
25oOQHySeoIKdHdAQkQprtBcDkCvk5l9e413QD2cBcgy4g1AFJbXc13Ad0B6
CeC0vPIMQID4s2xVw3dAQmXA///kDEDrWpBlTcZ3QAI+dM9J1wxAwh9JVz3M
d0B2J/jw8LsMQHCpujod2HdA8C8v5oyFDEDLvJ0B3e93QNBPFOz4GQxAguNj
j1wfeEAZ1iVHjEcLQPAw8KpbfnhA7Lvu4/u0CUAeu3cBnDh5QP9ncm7R4QZA
s/AK+rUCekDpQ0SbuCoEQI+3vlBGv3pAYMXsZcTsAUDSKX5JsIt7QBAnMUrV
jP8/XC1eoJBKfEDhRZaDigD8PzggrRazBX1AQfPt4Enp+D97vgcvr9B9QMrf
yc9y8fU/Be6CpSGOfkBqWqmDL37zP/bICb5tW39Aao9CcUQl8T+cyf/6fRKA
QMHwq2eAO+4/YfcKRoBwgEBQAYZmbeHqP9n6G2Jv1oBACf5uvyyq5z/1Rj2t
mTWBQOzPf4+6AuU/ugoWCOWSgUBYLUZ3qrLiPzKk9DMd+IFAZn6dqsh54D9O
huOOkFaCQLxxyHcuSN0/R0qOTDZYgkBWreu5wjjdP0AOOQrcWYJAWWsSG18p
3T8xlo6FJ12CQJMrUSmwCt0/FKY5fL5jgkDwxWD+ss3cP9vFj2nscIJA9V6E
2DdV3D9oBTxESIuCQJ9UfC4hats/YcnmAe6MgkAv+LoysVvbP1qNkb+TjoJA
W4Vn0UhN2z9MFec635GCQLw/CM6OMNs/LyWSMXaYgkC4Q89UdffaP/ZE6B6k
pYJAfRSIIqmG2j/vCJPcSaeCQDS1u/GweNo/6Mw9mu+ogkDk/kYcwGraP9lU
kxU7rIJAF0Tnc/RO2j+8ZD4M0rKCQNebU8G0F9o/tSjpyXe0gkBhMzv/9gna
P67sk4cdtoJAKrK0eUD82T+gdOkCabmCQIbmIBXp4Nk/mTiUwA67gkAUYHou
SNPZP5L8Pn60vIJAs0Yzda7F2T+KwOk7Wr6CQBb7g+UbuNk/g4SU+f+/gkBw
26Z7kKrZP7jTvUo=
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$1117479#1"]& ], {}}, {{}, {}, {}}}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 600}, {0., 3.9923542552768962`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.782384254369463*^9, 3.782384350558667*^9, {3.782385012379714*^9, 
   3.782385056737565*^9}},
 CellLabel->
  "Out[752]=",ExpressionUUID->"cd1f634c-67a0-49fc-9082-86f5f213c5cb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Association", "[", 
  RowBox[{
   RowBox[{"Element", "[", 
    RowBox[{"x", ",", "Reals"}], "]"}], ",", 
   RowBox[{"NSolve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"4", "*", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"E", "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "x"}], "*", 
            RowBox[{"10", "^", 
             RowBox[{"(", 
              RowBox[{"-", "2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "==", 
      RowBox[{"4", "*", 
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "x"}], "*", 
          RowBox[{"10", "^", 
           RowBox[{"(", 
            RowBox[{"-", "2"}], ")"}]}]}], ")"}]}]}]}], ",", "x"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.782384285948406*^9, 3.7823843227799206`*^9}, {
   3.782384449424912*^9, 3.7823844796455545`*^9}, 3.782384542785533*^9, {
   3.7823846167345934`*^9, 3.7823846537057624`*^9}},
 CellLabel->
  "In[745]:=",ExpressionUUID->"54354227-89e1-4082-bace-7164fa82c29d"],

Cell[BoxData[
 RowBox[{"Association", "[", 
  RowBox[{
   RowBox[{"x", "\[Element]", 
    TemplateBox[{},
     "Reals"]}], ",", 
   RowBox[{"NSolve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           FractionBox["x", 
            SuperscriptBox["10", "2"]]}]]}], ")"}]}], "\[Equal]", 
      RowBox[{"4", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         FractionBox["x", 
          SuperscriptBox["10", "2"]]}]]}]}], ",", "x"}], "]"}]}], 
  "]"}]], "Output",
 CellChangeTimes->{3.7823846544537544`*^9},
 CellLabel->
  "Out[745]=",ExpressionUUID->"44fcb663-8e37-47e7-9e7f-5954750fb852"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "x", "]"}]], "Input",
 CellChangeTimes->{{3.7823844986473837`*^9, 3.782384504172573*^9}},
 CellLabel->
  "In[740]:=",ExpressionUUID->"629c8f48-5580-47ca-8251-d1b799457c5c"],

Cell[CellGroupData[{

Cell["1\[Mu]F=", "WolframAlphaLong",
 CellChangeTimes->{{3.7823847789761143`*^9, 3.782384785170518*^9}},
 CellLabel->
  "In[746]:=",ExpressionUUID->"998216a5-fbdb-428c-87af-03529c662cd5"],

Cell[BoxData[
 NamespaceBox["WolframAlphaQueryResults",
  DynamicModuleBox[{Typeset`q$$ = "1\[Mu]F=", Typeset`opts$$ = {
   AppearanceElements -> {
     "Warnings", "Assumptions", "Brand", "Pods", "PodMenus", "Unsuccessful", 
      "Sources"}, Asynchronous -> All, 
    TimeConstraint -> {20, Automatic, Automatic, Automatic}, 
    Method -> {
     "Formats" -> {"cell", "minput", "msound", "dataformats"}, "Server" -> 
      "http://api.wolframalpha.com/v1/"}}, Typeset`elements$$ = {
   "Warnings", "Assumptions", "Brand", "Pods", "PodMenus", "Unsuccessful", 
    "Sources"}, Typeset`pod1$$ = XMLElement[
   "pod", {"title" -> "Input interpretation", "scanner" -> "Identity", "id" -> 
     "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["minput", {}, {"Quantity[1, \"Microfarads\"]"}], 
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            StyleBox[
             TagBox[
              TagBox[
               RowBox[{
                 TagBox[
                  TagBox[
                   RowBox[{"\"1\"", "\[NoBreak]", 
                    StyleBox[
                    RowBox[{}], FontFamily -> "Helvetica", FontSize -> 
                    Smaller], "\[InvisibleSpace]", "\[ThickSpace]", 
                    "\[InvisibleSpace]", 
                    TagBox[
                    StyleBox[
                    "\"\[Micro]F\"", FontFamily -> "Helvetica", FontSize -> 
                    Smaller], HoldForm]}], Identity], #& , SyntaxForm -> Dot],
                  "  ", 
                 StyleBox[
                  
                  RowBox[{
                   "\"(\"", "\[NoBreak]", "\"microfarad\"", "\[NoBreak]", 
                    "\")\""}], {
                  FontFamily -> "Helvetica", FontSize -> Smaller, 
                   GrayLevel[0.6], 
                   LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 
                   0}]}], "Unit", SyntaxForm -> Dot], 
              PolynomialForm[#, TraditionalOrder -> False]& ], 
             LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, 
             ZeroWidthTimes -> False], TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,minput,computabledata,formatteddata,numberdata,\
quantitydata"}]}], 
     XMLElement["expressiontypes", {"count" -> "1"}, {"\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}]}], 
   Typeset`pod2$$ = XMLElement[
   "pod", {"title" -> "Unit conversions", "scanner" -> "Unit", "id" -> 
     "UnitConversion", "position" -> "200", "error" -> "false", "numsubpods" -> 
     "3"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            StyleBox[
             TagBox[
              RowBox[{
                TagBox[
                 TagBox[
                  RowBox[{
                    TagBox["1000", 
                    $CellContext`TagBoxWrapper[
                    "StringBoxes" -> "1000", "SRString" -> "1000"]], 
                    "\[NoBreak]", 
                    StyleBox[
                    RowBox[{}], FontFamily -> "Helvetica", FontSize -> 
                    Smaller], "\[InvisibleSpace]", "\[ThickSpace]", 
                    "\[InvisibleSpace]", 
                    StyleBox[
                    "\"nF\"", FontFamily -> "Helvetica", FontSize -> 
                    Smaller]}], Identity], #& , SyntaxForm -> Dot], "  ", 
                StyleBox[
                 
                 RowBox[{
                  "\"(\"", "\[NoBreak]", "\"nanofarads\"", "\[NoBreak]", 
                   "\")\""}], {FontFamily -> "Helvetica", FontSize -> Smaller, 
                  GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100},
                   LineIndent -> 0}]}], "Unit", SyntaxForm -> Dot], 
             LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, 
             ZeroWidthTimes -> False], TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,computabledata,formatteddata,numberdata,quantitydata"}]}], 
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            StyleBox[
             TagBox[
              RowBox[{
                TagBox[
                 TagBox[
                  RowBox[{
                    TagBox["0.001", 
                    $CellContext`TagBoxWrapper[
                    "StringBoxes" -> "0.001", "SRString" -> "0.001"]], 
                    "\[NoBreak]", 
                    StyleBox[
                    RowBox[{}], FontFamily -> "Helvetica", FontSize -> 
                    Smaller], "\[InvisibleSpace]", "\[ThickSpace]", 
                    "\[InvisibleSpace]", 
                    StyleBox[
                    "\"mF\"", FontFamily -> "Helvetica", FontSize -> 
                    Smaller]}], Identity], #& , SyntaxForm -> Dot], "  ", 
                StyleBox[
                 
                 RowBox[{
                  "\"(\"", "\[NoBreak]", "\"millifarads\"", "\[NoBreak]", 
                   "\")\""}], {FontFamily -> "Helvetica", FontSize -> Smaller, 
                  GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100},
                   LineIndent -> 0}]}], "Unit", SyntaxForm -> Dot], 
             LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, 
             ZeroWidthTimes -> False], TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,computabledata,formatteddata,numberdata,quantitydata"}]}], 
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            StyleBox[
             TagBox[
              RowBox[{
                TagBox[
                 TagBox[
                  RowBox[{
                    TagBox[
                    RowBox[{"1", 
                    StyleBox["\[Times]", 
                    GrayLevel[0.5]], 
                    SuperscriptBox["10", "-6"]}], 
                    $CellContext`TagBoxWrapper[
                    "StringBoxes" -> RowBox[{"1", "\[Times]", 
                    SuperscriptBox["10", "-6"]}], "SRString" -> 
                    "10 to the negative 6"], SyntaxForm -> CenterDot], 
                    "\[NoBreak]", 
                    StyleBox[
                    RowBox[{}], FontFamily -> "Helvetica", FontSize -> 
                    Smaller], "\[InvisibleSpace]", "\[ThickSpace]", 
                    "\[InvisibleSpace]", 
                    StyleBox[
                    "\"F\"", FontFamily -> "Helvetica", FontSize -> 
                    Smaller]}], Identity], #& , SyntaxForm -> Dot], "  ", 
                StyleBox[
                 
                 RowBox[{
                  "\"(\"", "\[NoBreak]", "\"farads\"", "\[NoBreak]", 
                   "\")\""}], {FontFamily -> "Helvetica", FontSize -> Smaller, 
                  GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100},
                   LineIndent -> 0}]}], "Unit", SyntaxForm -> Dot], 
             LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, 
             ZeroWidthTimes -> False], TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,computabledata,formatteddata,numberdata,quantitydata"}]}], 
     XMLElement["expressiontypes", {"count" -> "3"}, {"\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}], 
     XMLElement["states", {"count" -> "1"}, {
       XMLElement[
       "state", {
        "name" -> "Show exact values", "input" -> 
         "UnitConversion__Show exact values"}, {}]}]}], Typeset`pod3$$ = 
   XMLElement[
   "pod", {"title" -> "Comparison", "scanner" -> "Unit", "id" -> "Comparison",
      "position" -> "300", "error" -> "false", "numsubpods" -> "1"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            FormBox[
             TemplateBox[{"\" \[TildeTilde] \"", 
               TemplateBox[{"\"\"", "1", "\".\"", "2"}, "RowDefault"], 
               "\" \"", 
               StyleBox["\"\[Times]\"", 
                GrayLevel[0.3], FontSize -> 10.219999999999999`, StripOnInput -> 
                False], "\"\[MediumSpace]\"", 
               StyleBox[
               "\"large mica and PTFE capacitor capacitance\"", FontFamily -> 
                "Helvetica", FontSize -> Smaller, StripOnInput -> False], 
               "\" \"", 
               StyleBox[
                RowBox[{"\"(\"", "\[NoBreak]", 
                  TemplateBox[{"\"\[TildeTilde]\[ThinSpace]\"", 
                    StyleBox[
                    TagBox[
                    TagBox[
                    TagBox[
                    RowBox[{
                    TagBox["820", 
                    $CellContext`TagBoxWrapper[
                    "StringBoxes" -> "820", "SRString" -> "820"]], 
                    "\[NoBreak]", 
                    StyleBox[
                    RowBox[{}], FontFamily -> "Helvetica", FontSize -> 
                    Smaller], "\[InvisibleSpace]", "\[ThickSpace]", 
                    "\[InvisibleSpace]", 
                    StyleBox[
                    "\"nF\"", FontFamily -> "Helvetica", FontSize -> 
                    Smaller]}], Identity], #& , SyntaxForm -> Dot], "Unit", 
                    SyntaxForm -> Dot], 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 
                    0, ZeroWidthTimes -> False], "\"\[MediumSpace]\""}, 
                   "RowDefault"], "\[NoBreak]", "\")\""}], {
                FontFamily -> "Verdana", FontSize -> 10, 
                 GrayLevel[0.5], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                 LineIndent -> 0}]}, "RowDefault"], TraditionalForm], 
            TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement["dataformats", {}, {"plaintext"}]}], 
     XMLElement["expressiontypes", {"count" -> "1"}, {"\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}]}], 
   Typeset`pod4$$ = XMLElement[
   "pod", {"title" -> "Interpretation", "scanner" -> "Unit", "id" -> 
     "Interpretation", "position" -> "400", "error" -> "false", "numsubpods" -> 
     "1"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            FormBox[
             TagBox["\"electric capacitance\"", Identity], TraditionalForm], 
            TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement["dataformats", {}, {"plaintext"}]}], 
     XMLElement["expressiontypes", {"count" -> "1"}, {"\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}]}], 
   Typeset`pod5$$ = XMLElement[
   "pod", {"title" -> "Basic unit dimensions", "scanner" -> "Unit", "id" -> 
     "BasicUnitDimensions", "position" -> "500", "error" -> "false", 
     "numsubpods" -> "1"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            TagBox[
             RowBox[{
               TemplateBox[{"\"[mass]\"", 
                 RowBox[{"-", "1"}]}, "Superscript", SyntaxForm -> 
                SuperscriptBox], " ", 
               TemplateBox[{"\"[length]\"", 
                 RowBox[{"-", "2"}]}, "Superscript", SyntaxForm -> 
                SuperscriptBox], " ", 
               
               TemplateBox[{"\"[time]\"", "4"}, "Superscript", SyntaxForm -> 
                SuperscriptBox], " ", 
               
               TemplateBox[{"\"[current]\"", "2"}, "Superscript", SyntaxForm -> 
                SuperscriptBox]}], HoldForm], TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,computabledata,formatteddata,formuladata"}]}], 
     XMLElement["expressiontypes", {"count" -> "1"}, {"\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}]}], 
   Typeset`pod6$$ = XMLElement[
   "pod", {"title" -> "Corresponding quantities", "scanner" -> "Unit", "id" -> 
     "CorrespondingQuantity", "position" -> "600", "error" -> "false", 
     "numsubpods" -> "3"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            TagBox[
             GridBox[{{
                InterpretationBox[
                 Cell[
                  TextData[{"Radius ", 
                    Cell[
                    BoxData[
                    FormBox["r", TraditionalForm]]], 
                    " of a conducting sphere with this capacitance from ", 
                    Cell[
                    BoxData[
                    FormBox[
                    FormBox[
                    TemplateBox[{
                    TagBox[
                    RowBox[{"C", "\[LongEqual]", 
                    RowBox[{
                    TagBox["4", HoldForm], "\[InvisibleSpace]", "\[Pi]", 
                    "\[InvisibleSpace]", 
                    SubscriptBox["\[Epsilon]", "0"], "\[InvisibleSpace]", 
                    "r"}]}], PolynomialForm[#, TraditionalOrder -> False]& ]},
                     "RowDefault"], TraditionalForm], TraditionalForm]]], 
                    ":"}]], 
                 TextCell[
                  Row[{"Radius ", 
                    $CellContext`CalculateSymbol["r"], 
                    " of a conducting sphere with this capacitance from ", 
                    $CellContext`InlineForm[
                    "C \[LongEqual] 4 Pi Subscript[\[Epsilon], 0] r"], 
                    ":"}]]]}, {
                TagBox[
                 GridBox[{{"", 
                    StyleBox[
                    TagBox[
                    TagBox[
                    TagBox[
                    RowBox[{
                    TagBox["8988", 
                    $CellContext`TagBoxWrapper[
                    "StringBoxes" -> "8988", "SRString" -> "8988"]], 
                    "\[InvisibleSpace]", " ", 
                    StyleBox[
                    "\"meters\"", {
                    FontFamily -> "Helvetica", FontSize -> Smaller, 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 
                    0}]}], Identity], #& , SyntaxForm -> Dot], "Unit", 
                    SyntaxForm -> Dot], 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 
                    0, ZeroWidthTimes -> False]}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{1}}, "Rows" -> {{Automatic}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
              "Column", 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
             "Column"], TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,computabledata,formatteddata,numberdata,quantitydata"}]}], 
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            TagBox[
             GridBox[{{
                InterpretationBox[
                 Cell[
                  TextData[{"Energy ", 
                    Cell[
                    BoxData[
                    FormBox["W", TraditionalForm]]], 
                    " stored in a capacitor held at 1 volt potential from ", 
                    Cell[
                    BoxData[
                    FormBox[
                    FormBox[
                    TemplateBox[{
                    TagBox[
                    RowBox[{"W", "\[LongEqual]", 
                    RowBox[{
                    RowBox[{"C", "\[InvisibleSpace]", 
                    SuperscriptBox["V", "2"]}], "\[InvisibleSpace]", 
                    "\[NegativeThinSpace]", "\[InvisibleSpace]", "\"/\"", 
                    "\[InvisibleSpace]", 
                    TagBox["2", HoldForm]}]}], 
                    PolynomialForm[#, TraditionalOrder -> False]& ]}, 
                    "RowDefault"], TraditionalForm], TraditionalForm]]], 
                    ":"}]], 
                 TextCell[
                  Row[{"Energy ", 
                    $CellContext`CalculateSymbol["W"], 
                    " stored in a capacitor held at 1 volt potential from ", 
                    $CellContext`InlineForm["W \[LongEqual] C V^2/2"], 
                    ":"}]]]}, {
                TagBox[
                 GridBox[{{"", 
                    StyleBox[
                    TagBox[
                    RowBox[{
                    TagBox[
                    TagBox[
                    RowBox[{
                    TagBox[
                    RowBox[{"5", 
                    StyleBox["\[Times]", 
                    GrayLevel[0.5]], 
                    SuperscriptBox["10", "-7"]}], 
                    $CellContext`TagBoxWrapper[
                    "StringBoxes" -> RowBox[{"5", "\[Times]", 
                    SuperscriptBox["10", "-7"]}], "SRString" -> 
                    "5 times 10 to the negative 7"], SyntaxForm -> CenterDot],
                     "\[NoBreak]", 
                    StyleBox[
                    RowBox[{}], FontFamily -> "Helvetica", FontSize -> 
                    Smaller], "\[InvisibleSpace]", "\[ThickSpace]", 
                    "\[InvisibleSpace]", 
                    StyleBox[
                    "\"J\"", FontFamily -> "Helvetica", FontSize -> 
                    Smaller]}], Identity], #& , SyntaxForm -> Dot], "  ", 
                    StyleBox[
                    
                    RowBox[{
                    "\"(\"", "\[NoBreak]", "\"joules\"", "\[NoBreak]", 
                    "\")\""}], {
                    FontFamily -> "Helvetica", FontSize -> Smaller, 
                    GrayLevel[0.6], 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 
                    0}]}], "Unit", SyntaxForm -> Dot], 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 
                    0, ZeroWidthTimes -> False]}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{1}}, "Rows" -> {{Automatic}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
              "Column", 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
             "Column"], TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,computabledata,formatteddata,numberdata,quantitydata"}]}], 
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            TagBox[
             GridBox[{{
                InterpretationBox[
                 Cell[
                  
                  TextData[{
                   "Johnson-Nyquist kTC rms noise voltage spectral density ", 
                    Cell[
                    BoxData[
                    FormBox[
                    SubscriptBox["V", "R"], TraditionalForm]]], 
                    " at 300 K from ", 
                    Cell[
                    BoxData[
                    FormBox[
                    FormBox[
                    TemplateBox[{
                    TagBox[
                    RowBox[{
                    SubsuperscriptBox["V", "n", 
                    TagBox["2", HoldForm]], "\[LongEqual]", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["k", "B"], "\[InvisibleSpace]", "T"}], 
                    "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
                    "C"}]}], PolynomialForm[#, TraditionalOrder -> False]& ]},
                     "RowDefault"], TraditionalForm], TraditionalForm]]], 
                    ":"}]], 
                 TextCell[
                  
                  Row[{"Johnson-Nyquist kTC rms noise voltage spectral \
density ", 
                    $CellContext`CalculateSymbol[
                    Subscript["V", "R"]], " at 300 K from ", 
                    $CellContext`InlineForm[
                    "Subsuperscript[V, n, 2] \[LongEqual] Subscript[k, B] \
T/C"], ":"}]]]}, {
                TagBox[
                 GridBox[{{"", 
                    StyleBox[
                    TagBox[
                    RowBox[{
                    TagBox[
                    TagBox[
                    RowBox[{
                    TagBox[
                    RowBox[{"6.4", 
                    StyleBox["\[Times]", 
                    GrayLevel[0.5]], 
                    SuperscriptBox["10", "-8"]}], 
                    $CellContext`TagBoxWrapper[
                    "StringBoxes" -> RowBox[{"6.4", "\[Times]", 
                    SuperscriptBox["10", "-8"]}], "SRString" -> 
                    "6.4 times 10 to the negative 8"], SyntaxForm -> 
                    CenterDot], "\[NoBreak]", 
                    StyleBox[
                    RowBox[{}], FontFamily -> "Helvetica", FontSize -> 
                    Smaller], "\[InvisibleSpace]", "\[ThickSpace]", 
                    "\[InvisibleSpace]", 
                    StyleBox[
                    "\"V\"", FontFamily -> "Helvetica", FontSize -> 
                    Smaller]}], Identity], #& , SyntaxForm -> Dot], "  ", 
                    StyleBox[
                    
                    RowBox[{
                    "\"(\"", "\[NoBreak]", "\"volts\"", "\[NoBreak]", 
                    "\")\""}], {
                    FontFamily -> "Helvetica", FontSize -> Smaller, 
                    GrayLevel[0.6], 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 
                    0}]}], "Unit", SyntaxForm -> Dot], 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 
                    0, ZeroWidthTimes -> False]}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{1}}, "Rows" -> {{Automatic}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
              "Column", 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
             "Column"], TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,computabledata,formatteddata,numberdata,quantitydata"}]}], 
     XMLElement["expressiontypes", {"count" -> "3"}, {"\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}]}], 
   Typeset`aux1$$ = {True, False, {False}, True}, Typeset`aux2$$ = {
   True, False, {False, False, False}, True}, Typeset`aux3$$ = {
   True, False, {False}, True}, Typeset`aux4$$ = {True, False, {False}, True},
    Typeset`aux5$$ = {True, False, {False}, True}, Typeset`aux6$$ = {
   True, False, {False, False, False}, True}, Typeset`asyncpods$$ = {}, 
   Typeset`nonpods$$ = {
    XMLElement["assumptions", {"count" -> "1"}, {
      XMLElement[
      "assumption", {
       "type" -> "Clash", "word" -> "\[Mu]F", "template" -> 
        "Assuming \"${word}\" is ${desc1}. Use as ${desc2} instead", "count" -> 
        "2"}, {
        XMLElement[
        "value", {
         "name" -> "Unit", "desc" -> "a unit", "input" -> 
          "*C.%CE%BCF-_*Unit-"}, {}], 
        XMLElement[
        "value", {
         "name" -> "ConcatVariables", "desc" -> "concatenated variables", 
          "input" -> "*C.%CE%BCF-_*ConcatVariables-"}, {}]}]}]}, 
   Typeset`initdone$$ = True, Typeset`queryinfo$$ = {
   "success" -> "true", "error" -> "false", "numpods" -> "6", "datatypes" -> 
    "Quantity", "timedout" -> "", "timedoutpods" -> "", "timing" -> "0.911", 
    "parsetiming" -> "0.129", "parsetimedout" -> "false", "recalculate" -> "",
     "id" -> "MSP44118ddia8g4cgbd39i00001d211218684a632a", "host" -> 
    "https://www4d.wolframalpha.com", "server" -> "15", "related" -> 
    "https://www4d.wolframalpha.com/api/v1/relatedQueries.jsp?id=\
MSPa44218ddia8g4cgbd39i000051hb698c93h20g3g3827527191664667052", "version" -> 
    "2.6"}, Typeset`sessioninfo$$ = {
   "TimeZone" -> 8., 
    "Date" -> {2019, 11, 10, 22, 26, 28.336627`9.204923066305772}, "Line" -> 
    746, "SessionID" -> 27753601902997625991}, Typeset`showpods$$ = {1, 2, 3, 
   4, 5, 6}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = {}, 
   Typeset`open$$ = False, Typeset`newq$$ = "1\[Mu]F="}, 
   DynamicBox[ToBoxes[
     AlphaIntegration`FormatAlphaResults[
      Dynamic[{
       1, {Typeset`pod1$$, Typeset`pod2$$, Typeset`pod3$$, Typeset`pod4$$, 
         Typeset`pod5$$, Typeset`pod6$$}, {
        Typeset`aux1$$, Typeset`aux2$$, Typeset`aux3$$, Typeset`aux4$$, 
         Typeset`aux5$$, Typeset`aux6$$}, Typeset`chosen$$, Typeset`open$$, 
        Typeset`elements$$, Typeset`q$$, Typeset`opts$$, Typeset`nonpods$$, 
        Typeset`queryinfo$$, Typeset`sessioninfo$$, Typeset`showpods$$, 
        Typeset`failedpods$$, Typeset`newq$$}]], StandardForm],
    ImageSizeCache->{1211., {322., 328.}},
    TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}],
   DynamicModuleValues:>{},
   Initialization:>If[
     Not[Typeset`initdone$$], Null; WolframAlphaClient`Private`doAsyncUpdates[
       Hold[{
        Typeset`pod1$$, Typeset`pod2$$, Typeset`pod3$$, Typeset`pod4$$, 
         Typeset`pod5$$, Typeset`pod6$$}], Typeset`asyncpods$$, 
       Dynamic[Typeset`failedpods$$]]; Typeset`asyncpods$$ = {}; 
     Typeset`initdone$$ = True],
   SynchronousInitialization->False],
  BaseStyle->{Deployed -> True},
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True]], "Print", "WolframAlphaFullOutput",
 CellChangeTimes->{
  3.7823847886139355`*^9},ExpressionUUID->"840cd1ac-80c5-4db9-a60f-\
206f68780670"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7823847710981483`*^9, 
  3.7823847711121106`*^9}},ExpressionUUID->"e7532be7-0638-473e-a0e0-\
0e2d440d6cad"],

Cell[CellGroupData[{

Cell["4*(1-E^(-x*10^(-2)))==4*E^(-x*10^(-2))", "WolframAlphaLong",
 CellChangeTimes->{3.78238457683891*^9},
 CellLabel->
  "In[743]:=",ExpressionUUID->"4e9a9c39-8fc1-49e0-8dcb-381610575434"],

Cell[BoxData[
 NamespaceBox["WolframAlphaQueryResults",
  DynamicModuleBox[{Typeset`q$$ = "4*(1-E^(-x*10^(-2)))==4*E^(-x*10^(-2))", 
   Typeset`opts$$ = {
   AppearanceElements -> {
     "Warnings", "Assumptions", "Brand", "Pods", "PodMenus", "Unsuccessful", 
      "Sources"}, Asynchronous -> All, 
    TimeConstraint -> {20, Automatic, Automatic, Automatic}, 
    Method -> {
     "Formats" -> {"cell", "minput", "msound", "dataformats"}, "Server" -> 
      "http://api.wolframalpha.com/v1/"}}, Typeset`elements$$ = {
   "Warnings", "Assumptions", "Brand", "Pods", "PodMenus", "Unsuccessful", 
    "Sources"}, Typeset`pod1$$ = XMLElement[
   "pod", {"title" -> "Input", "scanner" -> "Identity", "id" -> "Input", 
     "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["minput", {}, {"4 (1 - E^(-(x/10^2))) == 4/E^(x/10^2)"}], 
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            TagBox[
             RowBox[{
               RowBox[{"4", " ", 
                 RowBox[{"(", 
                   RowBox[{"1", "-", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", 
                    RowBox[{"x", "/", 
                    SuperscriptBox["10", "2"]}]}]]}], ")"}]}], "\[LongEqual]", 
               TagBox[
                RowBox[{"4", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"-", 
                    RowBox[{"x", "/", 
                    SuperscriptBox["10", "2"]}]}]]}], Identity]}], 
             PolynomialForm[#, TraditionalOrder -> False]& ], 
            TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,minput,computabledata,formatteddata,formuladata"}]}], 
     XMLElement["expressiontypes", {"count" -> "1"}, {"\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}]}], 
   Typeset`pod2$$ = XMLElement[
   "pod", {"title" -> "Exact result", "scanner" -> "Identity", "id" -> 
     "Result", "position" -> "200", "error" -> "false", "numsubpods" -> "1", 
     "primary" -> "true"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            RowBox[{
              RowBox[{"4", " ", 
                RowBox[{"(", 
                  RowBox[{"1", "-", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", 
                    RowBox[{"x", "/", "100"}]}]]}], ")"}]}], "\[LongEqual]", 
              TagBox[
               RowBox[{"4", " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"-", 
                    RowBox[{"x", "/", "100"}]}]]}], Identity]}], 
            TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,moutput,computabledata,formatteddata,formuladata"}]}], 
     XMLElement["expressiontypes", {"count" -> "1"}, {"\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}]}], 
   Typeset`pod3$$ = XMLElement[
   "pod", {"title" -> "Plot", "scanner" -> "Reduce", "id" -> "RootPlot", 
     "position" -> "300", "error" -> "false", "numsubpods" -> "1"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement[
       "minput", {}, {
        "Plot[{4 - 4/E^(x/100), 4/E^(x/100)}, {x, -300., 300.}]"}], 
       XMLElement["cell", {"compressed" -> True, "string" -> False}, {
         Cell[
          BoxData[
           FormBox[
            TemplateBox[{
              GraphicsBox[{{{{}, {}, 
                  TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.24720000000000014`, 0.24, 0.6], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwVj30w23ccgFGpIr5a7w0ZGfUW73rOez61WiuUDIvXRLwl9TKSn9dWtlK9
lWq3SswSVzrVqt6sU2dbrVbfcelQRdkoSmc7ypWh3kbTmv3x3PPfc/fQkrLD
U9VUVFSO7fG/6eIeTn1yBm6Z/1tePc7ANl4sf+5QOr7kWleEHPyxsPtpb6lf
Gu5WTy8Hmje2p+vJOxQC3IIHthv6PLCRr49VgBMf90mH2+TV7jjX3nJt4l4K
7joxp9+z6oKdvB1Ll32TMX86Ymr5hCOmrJkPspoScf8NZ7XoCVtcUP6Uq3Di
YZFsNIrrdgQjyVikDp2D3wusUDG4R8NzEaysixqxuFjINqOGU/E3Qx/q2lKi
8GKx1PUIywR3Xke2SUsROL51M5ddoo9/tYvs6dpkYfX8dr27ero4jDyKz5QE
46HAS8ZEoQa+wry8Ee8eiNPFfse15lSwxdsigtLgj1eMZzJEq5udP9+1Gv9z
xhUPyUJ9gw4udOY7HyogzRpjnoCcxrsw2Jnr4hCuMmAEwvHZ6LqEfkYp5avb
kxw3KNPvvq1xdpbB82syq3X2B6Hn1mtl8wrjY22fGPG5QAi5/OJsPWeTUU7I
zX16g2E06pG/U9AbhtL1swz2CAuGb9b258XsMsKiuYN5qpEQahX6x/J1VcDd
+NusbTaEjqu/3PHZB4WL0yThXzGwX+2HLeMGdXjcRZ8f0+KA97tGfFxJAp/p
nYDDbxOg5nyHRdBhDWiIUEp4XydCl6Bxvsr+ANyP7QCaYTLQHihrKGRNEEGs
I78iBZj2XotXhzRhS6zL5dL48GxqVup9RQvIz0nBH1wTgCwW+27basM/lfri
SY80MMx5Hev4UBtyrXdfbfWmw4GLttF0BhnKp+gmqgGZELlt7dZ6hwyZr7LL
fhn/BL5nanLmdHVgynSjjc/OhgtPzlpDig6cMXQ42JcqhDeJDxT4Ox1IP7kg
8HYRAcc1s5m3rgMN5N+otCUR5NvcONrihKCqykyeuSICVRLt2C1nBJ+bEQb3
10RAHpP0y10QpDtQtcN2RFCKEhJL3BC4hOT8K9YgQHV9t5zpgaCjwnzkGY2A
hBwLPYUfgt+1CsuusglQKKT98SEIHkme7HseQ8A7QY5nwCkEP1Esz9lwCMib
LKbbhCKosR/Ie5hMgKnMsmk5DAGPaZW8KCSgWpGnVhSBYLF8yO9kBQGSCSZR
FItg+pB1u/QLAurtJFkxcQgG5UVHX1QS4NW7uuERj6D1jjU9X0ZAGHWlcYWD
oLBXbHLz1l5feU3GTdz7+WhYutxEAL86bt0zCUHcuI2uTzMBZcWmU3rJCPwX
hknDrQRoJ1WyFSl7vyLbEuqPBNSZ4Je1qQje3/5UebqdgC9rZ/bn8xEYlIwU
tHUQYKTq1nZKgICkabe220nAY/elZavTCP4DM1bOcQ==
                    "]]}, Annotation[#, "Charting`Private`Tag$2352865#1"]& ], 
                  TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.6, 0.24, 0.4428931686004542], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAG8uy7yr3asBQEKH9nE5BQCc5UD5e
0GrAxRjPPQcWQUBww9HJgz1pwMMEaolAIT5AKisSmbzFZ8CwwM75o8o6QBY8
OyRCLmbAypPStJmWN0B0KiPz2rFkwMJH5hPI8TRALjotg+88Y8Az76nu96My
QBrzH89QqGHAZtEXASxtMEB3idFexS5gwHGY1ldeMi1ADpLXVA0rXcAeRYsA
FLEpQOZTUG6HB1rAQDgrjg6pJkCg0EYPKBpXwHbAyZgSKCRAv58OKGLtU8Au
WXs6q8AhQMEpVMjC9lDAArtcCVeJH0BPDNbAeYFLwOgixQs5vBtAjUqM9Vwz
RcA1vh4iBXMYQCD9e3Iaoz7A/EX4Wly8FUC6riTZ4OExwBrTiScJIhNAdi8R
dwXlF8A7Y0gDI/wQQHQwLFIAzhZAaaJxGgY6DkCDGpWn210yQB47DxZ+oQpA
YD2oHJ0vPkDIY4SGgakHQFULO1l8f0VA2jmQQi/RBECJcpkfO8lLQBXUnOBo
WwJA/DF+a1bTUECXLbEZRVMAQE9YXs91AVRAY7djVSDA/D/Aw8CrbvlWQGNN
9jEKiPk/eOzeBXDiWUDz+5UQ0Ln2P8vCK+jXCl1AjQOyfnYH9D873vpCGf1f
QMv6hr5tzfE/o1P8kmCXYUD3YGZdrFXvP7havEAhFWNAfRMNlJXP6z9xQFot
ZotkQNhWG0+8veg/93wPXl4hZkCiiGiwFcvlPwzcBUtDnGdAnpX+DBtc4z/u
kRN82zZpQKwzNpRKB+E/dCb/6/fJakDDx7s+pQbeP4ndKxgBQmxAXTXIbm6y
2j9s62+IvdltQIiqtRfNgNc/3Rv1tGZWb0DfkynM/t3UP3kVLBDKZXBAK/Ak
0vmR0j9qSOlnOjBxQBt1npz6XNA/owzHHSHtcUCmiN21/BTNP5SUHJls8HFA
76/v7asFzT+GHHIUuPNxQEGP0jZj9sw/aiwdC0/6cUDNFw/q6dfMPzBMc/h8
B3JA8L8AYFebzD+8ix/T2CFyQAnK+N2uI8w/1Ap4iJBWckCvo8M2MzrLP8aS
zQPcWXJAG4DJeNwryz+3GiN/J11yQK9I8keNHcs/mirOdb5jckBWfsZ9BQHL
P2BKJGPscHJAm6aj2E/Iyj/sidA9SItyQNxWUttIWMo/3hEmuZOOckDtZd0W
aUrKP8+ZezTfkXJAbGzjoJA8yj+yqSYrdphyQBYr/pD1IMo/eMl8GKSlckBJ
PjB2FurJP2pR0pPvqHJAm5lGunDcyT9b2ScPO6xyQH73Ry7Szsk/PunSBdKy
ckBP3+mWqrPJPzBxKIEdtnJAG3b+gyGmyT8i+X38aLlyQBYn5pGfmMk/FIHT
d7S8ckCo7t+8JIvJPwUJKfP/v3JAUMMsAbF9yT9qM+K/
                    "]]}, 
                   Annotation[#, 
                    "Charting`Private`Tag$2352865#2"]& ]}}, {}, {}}, {
               GridLines -> Dynamic[
                  Map[{{#, 
                    GrayLevel[0.7]}}& , 
                   MousePosition[{"Graphics", Graphics}, None]]], 
                DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
                AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, {{-30., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.01, 0.}, {
                    AbsoluteThickness[0.1]}}, {-20., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.01, 0.}, {
                    AbsoluteThickness[0.1]}}, {-10., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.01, 0.}, {
                    AbsoluteThickness[0.1]}}, {0., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.01, 0.}, {
                    AbsoluteThickness[0.1]}}, {10., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.01, 0.}, {
                    AbsoluteThickness[0.1]}}, {20., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.01, 0.}, {
                    AbsoluteThickness[0.1]}}, {30., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.01, 0.}, {
                    AbsoluteThickness[0.1]}}, {-40., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {-38., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {-36., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {-34., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {-32., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {-28., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {-26., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {-24., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {-22., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {-18., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {-16., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {-14., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {-12., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {-8., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {-6., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {-4., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {-2., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {2., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {4., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {6., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {8., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {12., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {14., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {16., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {18., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {22., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {24., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {26., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {28., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {32., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {34., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {36., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {38., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {40., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}}}, {Automatic, {{-300., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.01, 0.}, {
                    AbsoluteThickness[0.1]}}, {-200., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.01, 0.}, {
                    AbsoluteThickness[0.1]}}, {-100., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.01, 0.}, {
                    AbsoluteThickness[0.1]}}, {0., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.01, 0.}, {
                    AbsoluteThickness[0.1]}}, {100., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.01, 0.}, {
                    AbsoluteThickness[0.1]}}, {200., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.01, 0.}, {
                    AbsoluteThickness[0.1]}}, {300., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.01, 0.}, {
                    AbsoluteThickness[0.1]}}, {-280., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {-260., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {-240., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {-220., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {-180., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {-160., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {-140., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {-120., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {-80., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {-60., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {-40., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {-20., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {20., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {40., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {60., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {80., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {120., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {140., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {160., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {180., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {220., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {240., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {260., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}, {280., 
                    FormBox[
                    InterpretationBox[
                    StyleBox[
                    
                    GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> 
                    Baseline], "CacheGraphics" -> False], 
                    Spacer[{0, 0}], Selectable -> False], TraditionalForm], {
                    0.005, 0.}, {
                    AbsoluteThickness[0.1]}}}}}, GridLines -> {None, None}, 
                DisplayFunction -> Identity, PlotRangePadding -> {{
                   Scaled[0.02], 
                   Scaled[0.02]}, {
                   Scaled[0.05], 
                   Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> 
                All, DisplayFunction -> Identity, AspectRatio -> 
                NCache[GoldenRatio^(-1), 0.6180339887498948], 
                Axes -> {True, True}, AxesLabel -> {None, None}, 
                AxesOrigin -> {0, 0}, AxesStyle -> Directive[
                  AbsoluteThickness[0.2]], BaseStyle -> Automatic, 
                DisplayFunction :> Identity, Epilog -> {
                  AbsolutePointSize[5], 
                  Hue[0], {
                   TagBox[
                    TooltipBox[
                    PointBox[{69.31471805599452, 1.9999999999999996`}], 
                    
                    TemplateBox[{
                    "\"(\"", "69.31471805599452`", "\",\"", "2", "\")\""}, 
                    "RowDefault"]], Annotation[#, 
                    Row[{"(", 69.31471805599452, ",", 2, ")"}], 
                    "Tooltip"]& ]}}, 
                Frame -> {{False, False}, {False, False}}, 
                FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                Directive[
                  AbsoluteThickness[0.2]], 
                FrameTicks -> {{Automatic, Automatic}, {
                  Automatic, Automatic}}, GridLines -> {None, None}, 
                GridLinesStyle -> {
                  GrayLevel[0.85], 
                  GrayLevel[0.9]}, ImageSize -> 330., 
                Method -> {
                 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                  PointSize[Medium], "PointSizeFunction" -> "SmallPointSize", 
                  "ScalingFunctions" -> None, 
                  "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                PlotRange -> {{-300., 300.}, {-31.84995424093421, 
                 34.614165977138896`}}, PlotRangeClipping -> True, 
                PlotRangePadding -> {{
                   Scaled[0.02], 
                   Scaled[0.02]}, {
                   Scaled[0.02], 
                   Scaled[0.02]}}, Prolog -> {
                  Opacity[0], 
                  TagBox[
                   RectangleBox[
                    Scaled[{0, 0}], 
                    Scaled[{1, 1}]], Annotation[#, "Plot", "Frame"]& ]}, 
                Ticks -> {Automatic, Automatic}}], 
              TagBox[
               GridBox[{{
                  GraphicsBox[{
                    RGBColor[0.24720000000000014`, 0.24, 0.6], {
                    AbsoluteThickness[2], 
                    LineBox[{{0, 0}, {1, 0}}]}}, ImageSize -> NCache[
                    Rational[143, 10], 14.3], 
                   BaselinePosition -> (Center -> Center)], 
                  StyleBox[
                   RowBox[{"4", "-", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", 
                    RowBox[{"x", "/", "100"}]}]]}]}], {
                   FontFamily -> "Verdana", FontSize -> 10, 
                    GrayLevel[0.5], 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 
                    0}]}, {
                  GraphicsBox[{
                    RGBColor[0.6, 0.24, 0.4428931686004542], {
                    AbsoluteThickness[2], 
                    LineBox[{{0, 0}, {1, 0}}]}}, ImageSize -> NCache[
                    Rational[143, 10], 14.3], 
                   BaselinePosition -> (Center -> Center)], 
                  StyleBox[
                   RowBox[{"4", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", 
                    RowBox[{"x", "/", "100"}]}]]}], {
                   FontFamily -> "Verdana", FontSize -> 10, 
                    GrayLevel[0.5], 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 
                    0}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {"Columns" -> {{0.3}}, "Rows" -> {{0.3}}}],
                "Grid"]}, "Labeled", DisplayFunction -> (FormBox[
               GridBox[{{
                  TagBox[
                   ItemBox[
                    PaneBox[
                    TagBox[#, "SkipImageSizeLevel"], 
                    Alignment -> {Center, Baseline}, BaselinePosition -> 
                    Baseline], DefaultBaseStyle -> "Labeled"], 
                   "SkipImageSizeLevel"], 
                  
                  ItemBox[#2, Alignment -> {Inherited, Bottom}, 
                   DefaultBaseStyle -> "LabeledLabel"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                BaselinePosition -> {1, 1}], TraditionalForm]& ), 
             InterpretationFunction -> (RowBox[{
                StyleBox[
                "Labeled", FontFamily -> "Bitstream Vera Sans", 
                 FontSize -> -1 + Inherited], "[", 
                RowBox[{#, ",", #2, ",", 
                  RowBox[{"(", "\[NoBreak]", 
                    GridBox[{{
                    StyleBox[
                    "Right", FontFamily -> "Bitstream Vera Sans", 
                    FontSize -> -1 + Inherited], 
                    StyleBox[
                    "Bottom", FontFamily -> "Bitstream Vera Sans", 
                    FontSize -> -1 + Inherited]}}, RowSpacings -> 1, 
                    ColumnSpacings -> 1, RowAlignments -> Baseline, 
                    ColumnAlignments -> Center], "\[NoBreak]", ")"}]}], 
                "]"}]& )], TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {"minput,computabledata,formatteddata"}]}], 
     XMLElement["expressiontypes", {"count" -> "1"}, {"\n  ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n "}]}], 
   Typeset`pod4$$ = XMLElement[
   "pod", {"title" -> "Alternate forms", "scanner" -> "Simplification", "id" -> 
     "AlternateForm", "position" -> "400", "error" -> "false", "numsubpods" -> 
     "2"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["minput", {}, {"Apart[4 (1 - E^(-x/100)) == 4/E^(x/100)]"}], 
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            RowBox[{
              RowBox[{"4", "-", 
                RowBox[{"4", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"-", 
                    RowBox[{"x", "/", "100"}]}]]}]}], "\[LongEqual]", 
              TagBox[
               RowBox[{"4", " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"-", 
                    RowBox[{"x", "/", "100"}]}]]}], Identity]}], 
            TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,minput,moutput,computabledata,formatteddata,formuladata"}]}\
], 
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement[
       "minput", {}, {"Factor[4 (1 - E^(-x/100)) == 4/E^(x/100)]"}], 
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            RowBox[{
              RowBox[{"4", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"-", 
                   RowBox[{"x", "/", "100"}]}]], " ", 
                RowBox[{"(", 
                  RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"x", "/", "100"}]], "-", 
                    RowBox[{"1"}]}], ")"}]}], "\[LongEqual]", 
              TagBox[
               RowBox[{"4", " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"-", 
                    RowBox[{"x", "/", "100"}]}]]}], Identity]}], 
            TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,minput,moutput,computabledata,formatteddata,formuladata"}]}\
], 
     XMLElement["expressiontypes", {"count" -> "2"}, {"\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}]}], 
   Typeset`pod5$$ = XMLElement[
   "pod", {"title" -> "Alternate form assuming x is positive", "scanner" -> 
     "Simplification", "id" -> "PositiveAlternateForm", "position" -> "500", 
     "error" -> "false", "numsubpods" -> "1"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement[
       "minput", {}, {
        "FullSimplify[4 (1 - E^(-x/100)) == 4/E^(x/100), x > 0]"}], 
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"x", "/", "100"}]], "\[LongEqual]", "2"}], 
            TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,minput,moutput,computabledata,formatteddata,formuladata"}]}\
], 
     XMLElement["expressiontypes", {"count" -> "1"}, {"\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}]}], 
   Typeset`pod6$$ = XMLElement[
   "pod", {"title" -> "Alternate form assuming x is real", "scanner" -> 
     "Simplification", "id" -> "AlternateFormAssumingAllVariablesAreReal", 
     "position" -> "600", "error" -> "false", "numsubpods" -> "1"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement[
       "minput", {}, {"ComplexExpand[4 (1 - E^(-x/100)) == 4/E^(x/100)]"}], 
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            RowBox[{
              RowBox[{"4", "-", 
                FractionBox["4", 
                 RadicalBox[
                  SuperscriptBox["\[ExponentialE]", "x"], "100"]]}], 
              "\[LongEqual]", 
              TagBox[
               FractionBox["4", 
                RadicalBox[
                 SuperscriptBox["\[ExponentialE]", "x"], "100"]], Identity]}],
             TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,minput,moutput,computabledata,formatteddata,formuladata"}]}\
], 
     XMLElement["expressiontypes", {"count" -> "1"}, {"\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}]}], 
   Typeset`pod7$$ = XMLElement[
   "pod", {"title" -> "Number line", "scanner" -> "Reduce", "id" -> 
     "NumberLine", "position" -> "700", "error" -> "false", "numsubpods" -> 
     "1"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement[
       "minput", {}, {
        "NumberLinePlot[4 (1 - E^(-x/100)) == 4/E^(x/100), x]"}], 
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            TemplateBox[{
              GraphicsBox[{
                TagBox[
                 TooltipBox[{
                   PointSize[0.02], 
                   RGBColor[0.24720000000000014`, 0.24, 0.6], 
                   PointBox[{69.31471805599453, 1.2476649250079015`}]}, 
                  "69.31471805599453`"], 
                 Annotation[#, 69.31471805599453, "Tooltip"]& ]}, ImageSize -> 
               330., Axes -> {True, False}, 
               PlotRange -> {{48.520302639196174`, 90.10913347279289}, 
                 Automatic}, AxesOrigin -> {0, 0}], "\"\""}, "Labeled", 
             DisplayFunction -> (FormBox[
               GridBox[{{
                  TagBox[
                   ItemBox[
                    PaneBox[
                    TagBox[#, "SkipImageSizeLevel"], 
                    Alignment -> {Center, Baseline}, BaselinePosition -> 
                    Baseline], DefaultBaseStyle -> "Labeled"], 
                   "SkipImageSizeLevel"]}, {
                  ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                BaselinePosition -> {1, 1}], TraditionalForm]& ), 
             InterpretationFunction -> (RowBox[{
                StyleBox[
                "Labeled", FontFamily -> "Bitstream Vera Sans", 
                 FontSize -> -1 + Inherited], "[", 
                RowBox[{#, ",", #2, ",", 
                  StyleBox[
                  "Bottom", FontFamily -> "Bitstream Vera Sans", 
                   FontSize -> -1 + Inherited]}], "]"}]& )], 
            TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {"minput,computabledata,formatteddata"}]}], 
     XMLElement["expressiontypes", {"count" -> "1"}, {"\n  ", 
       XMLElement["expressiontype", {"name" -> "1DMathPlot"}, {}], "\n "}]}], 
   Typeset`pod8$$ = XMLElement[
   "pod", {"title" -> "Real solution", "scanner" -> "Reduce", "id" -> 
     "RealSolution", "position" -> "800", "error" -> "false", "numsubpods" -> 
     "1", "primary" -> "true"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement[
       "minput", {}, {"Reduce[4 - 4/E^(x/100) == 4/E^(x/100), x, Reals]"}], 
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            FormBox[
             FormBox[
              TagBox[
               GridBox[{{
                  PaneBox[
                   RowBox[{"x", "\[LongEqual]", 
                    TagBox[
                    RowBox[{"100", " ", 
                    RowBox[{"log", "(", "2", ")"}]}], Identity]}], 
                   BaselinePosition -> Baseline, ImageSize -> 550]}}, 
                GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                AllowScriptLevelChange -> False, DefaultBaseStyle -> "Column",
                 GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
               "Column"], TraditionalForm], TraditionalForm], 
            TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,minput,moutput,computabledata,formatteddata,formuladata"}]}
      ], 
     XMLElement["expressiontypes", {"count" -> "1"}, {"\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}], 
     XMLElement["states", {"count" -> "2"}, {
       XMLElement[
       "state", {
        "name" -> "Approximate form", "input" -> 
         "RealSolution__Approximate form"}, {}], 
       XMLElement[
       "state", {
        "name" -> "Step-by-step solution", "input" -> 
         "RealSolution__Step-by-step solution", "stepbystep" -> 
         "true"}, {}]}], 
     XMLElement["infos", {"count" -> "1"}, {
       XMLElement["info", {"text" -> "log(x) is the natural logarithm"}, {
         XMLElement[
         "link", {
          "url" -> "http://reference.wolfram.com/language/ref/Log.html", 
           "text" -> "Documentation", "title" -> "Mathematica"}, {}], 
         XMLElement[
         "link", {
          "url" -> "http://functions.wolfram.com/ElementaryFunctions/Log", 
           "text" -> "Properties", "title" -> "Wolfram Functions Site"}, {}], 
         XMLElement[
         "link", {
          "url" -> "http://mathworld.wolfram.com/NaturalLogarithm.html", 
           "text" -> "Definition", "title" -> "MathWorld"}, {}]}]}]}], 
   Typeset`pod9$$ = XMLElement[
   "pod", {"title" -> "Solution", "scanner" -> "Reduce", "id" -> 
     "SymbolicSolution", "position" -> "900", "error" -> "false", 
     "numsubpods" -> "1", "primary" -> "true"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement[
       "minput", {}, {"Reduce[4 - 4/E^(x/100) == 4/E^(x/100), x]"}], 
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            FormBox[
             FormBox[
              TagBox[
               GridBox[{{
                  PaneBox[
                   TemplateBox[{",   ", "\",   \"", 
                    RowBox[{"x", "\[LongEqual]", 
                    TagBox[
                    RowBox[{"100", " ", "\[ImaginaryI]", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", "\[Pi]", " ", "n"}], "-", 
                    RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"log", "(", "2", ")"}]}]}], ")"}]}], Identity]}], 
                    RowBox[{"n", "\[Element]", 
                    TagBox["\[DoubleStruckCapitalZ]", 
                    Function[{}, Integers]]}]}, "RowWithSeparators"], 
                   BaselinePosition -> Baseline, ImageSize -> 550]}}, 
                GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                AllowScriptLevelChange -> False, DefaultBaseStyle -> "Column",
                 GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
               "Column"], TraditionalForm], TraditionalForm], 
            TraditionalForm]], "Output", {
          Background -> None, 
           GraphicsBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics"}, 
             DefaultAxesStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsAxes"], DefaultFrameStyle -> Directive[
               GrayLevel[0, 0.35], FontColor -> GrayLevel[0.25], FontOpacity -> 
               1, "GraphicsFrame"], DefaultFrameTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsFrameTicks"], 
             DefaultTicksStyle -> 
             Directive[
              FontFamily -> "Times", FontSize -> 10, "GraphicsTicks"]}, 
           Graphics3DBoxOptions -> {
            DefaultBaseStyle -> {FontFamily -> "Times", "Graphics3D"}}}, 
          NumberPoint -> ".", CellSize -> {550, Automatic}, 
          AutoStyleOptions -> {"HighlightFormattingErrors" -> False}, 
          RenderingOptions -> {
           "3DRenderingMethod" -> "BSPTreeOrDepthBuffer"}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,minput,moutput,computabledata,formatteddata,formuladata"}]}\
], 
     XMLElement["expressiontypes", {"count" -> "1"}, {"\n   ", 
       XMLElement["expressiontype", {"name" -> "Default"}, {}], "\n  "}], 
     XMLElement["states", {"count" -> "2"}, {
       XMLElement[
       "state", {
        "name" -> "Approximate form", "input" -> 
         "SymbolicSolution__Approximate form"}, {}], 
       XMLElement[
       "state", {
        "name" -> "Step-by-step solution", "input" -> 
         "SymbolicSolution__Step-by-step solution", "stepbystep" -> 
         "true"}, {}]}], 
     XMLElement["infos", {"count" -> "1"}, {
       XMLElement["info", {"text" -> "Z is the set of integers"}, {
         XMLElement[
         "link", {
          "url" -> "http://reference.wolfram.com/language/ref/Integers.html", 
           "text" -> "Documentation", "title" -> "Documentation"}, {}], 
         XMLElement[
         "link", {
          "url" -> "http://mathworld.wolfram.com/Z.html", "text" -> 
           "Definition", "title" -> "MathWorld"}, {}]}]}]}], 
   Typeset`aux1$$ = {True, False, {False}, True}, Typeset`aux2$$ = {
   True, False, {False}, True}, Typeset`aux3$$ = {True, False, {False}, True},
    Typeset`aux4$$ = {True, False, {False, False}, True}, Typeset`aux5$$ = {
   True, False, {False}, True}, Typeset`aux6$$ = {True, False, {False}, True},
    Typeset`aux7$$ = {True, False, {False}, True}, Typeset`aux8$$ = {
   True, False, {False}, True}, Typeset`aux9$$ = {True, False, {False}, True},
    Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = {}, Typeset`initdone$$ = 
   True, Typeset`queryinfo$$ = {
   "success" -> "true", "error" -> "false", "numpods" -> "9", "datatypes" -> 
    "", "timedout" -> "", "timedoutpods" -> "", "timing" -> "2.072", 
    "parsetiming" -> "0.7030000000000001", "parsetimedout" -> "false", 
    "recalculate" -> "", "id" -> 
    "MSP47851c2g5g08ieef547d00003gi4e10aei929e06", "host" -> 
    "https://www4d.wolframalpha.com", "server" -> "28", "related" -> 
    "https://www4d.wolframalpha.com/api/v1/relatedQueries.jsp?id=\
MSPa47861c2g5g08ieef547d0000310b4fhahi103h26646000419231588435", "version" -> 
    "2.6"}, Typeset`sessioninfo$$ = {
   "TimeZone" -> 8., 
    "Date" -> {2019, 11, 10, 22, 23, 8.9047837`8.70219834211738}, "Line" -> 
    743, "SessionID" -> 27753601902997625991}, Typeset`showpods$$ = {1, 2, 3, 
   4, 5, 6, 7, 8, 9}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = {}, 
   Typeset`open$$ = False, Typeset`newq$$ = 
   "4*(1-E^(-x*10^(-2)))==4*E^(-x*10^(-2))"}, 
   DynamicBox[ToBoxes[
     AlphaIntegration`FormatAlphaResults[
      Dynamic[{
       1, {Typeset`pod1$$, Typeset`pod2$$, Typeset`pod3$$, Typeset`pod4$$, 
         Typeset`pod5$$, Typeset`pod6$$, Typeset`pod7$$, Typeset`pod8$$, 
         Typeset`pod9$$}, {
        Typeset`aux1$$, Typeset`aux2$$, Typeset`aux3$$, Typeset`aux4$$, 
         Typeset`aux5$$, Typeset`aux6$$, Typeset`aux7$$, Typeset`aux8$$, 
         Typeset`aux9$$}, Typeset`chosen$$, Typeset`open$$, 
        Typeset`elements$$, Typeset`q$$, Typeset`opts$$, Typeset`nonpods$$, 
        Typeset`queryinfo$$, Typeset`sessioninfo$$, Typeset`showpods$$, 
        Typeset`failedpods$$, Typeset`newq$$}]], StandardForm],
    ImageSizeCache->{1211., {481., 487.}},
    TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}],
   DynamicModuleValues:>{},
   Initialization:>If[
     Not[Typeset`initdone$$], Null; WolframAlphaClient`Private`doAsyncUpdates[
       Hold[{
        Typeset`pod1$$, Typeset`pod2$$, Typeset`pod3$$, Typeset`pod4$$, 
         Typeset`pod5$$, Typeset`pod6$$, Typeset`pod7$$, Typeset`pod8$$, 
         Typeset`pod9$$}], Typeset`asyncpods$$, 
       Dynamic[Typeset`failedpods$$]]; Typeset`asyncpods$$ = {}; 
     Typeset`initdone$$ = True],
   SynchronousInitialization->False],
  BaseStyle->{Deployed -> True},
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True]], "Print", "WolframAlphaFullOutput",
 CellChangeTimes->{
  3.7823845892578773`*^9},ExpressionUUID->"4ee30cf2-05ff-4d05-a8d4-\
c981959633b6"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.782384579604515*^9},ExpressionUUID->"1ca8e1a4-86a2-4833-b4d2-\
8a5f7e143de0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Unprotect", "[", "C", "]"}]], "Input",
 CellChangeTimes->{{3.7823858576642857`*^9, 3.782385863108239*^9}},
 CellLabel->
  "In[759]:=",ExpressionUUID->"e7cf6b1f-bb5b-4f40-8086-521de8f3a874"],

Cell[BoxData[
 RowBox[{"{", "\<\"C\"\>", "}"}]], "Output",
 CellChangeTimes->{3.7823858641993217`*^9},
 CellLabel->
  "Out[759]=",ExpressionUUID->"e636ecc4-a65e-4ef4-8ca4-e45d8b5cda7f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["C"], "Input",
 CellChangeTimes->{3.7823866721135254`*^9},
 CellLabel->
  "In[790]:=",ExpressionUUID->"b2031962-f5f9-477a-840f-008356ae9be3"],

Cell[BoxData["C"], "Output",
 CellChangeTimes->{3.7823866731128154`*^9},
 CellLabel->
  "Out[790]=",ExpressionUUID->"9246f60a-e2cb-457e-95ae-d339ce9141a8"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "U1", "]"}]], "Input",
 CellChangeTimes->{{3.782386510520527*^9, 3.782386513985879*^9}, {
  3.782386571456056*^9, 3.7823865727575383`*^9}},
 CellLabel->
  "In[778]:=",ExpressionUUID->"720f8d09-d8c4-4d79-9f0c-f7269fe12460"],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"U", ",", "L", ",", "C"}], "]"}]], "Input",
 CellChangeTimes->{{3.7823854080351577`*^9, 3.7823854168545713`*^9}, {
  3.7823855241304855`*^9, 3.782385524583275*^9}, {3.782385852683605*^9, 
  3.782385853575222*^9}},
 CellLabel->
  "In[789]:=",ExpressionUUID->"7a6c7418-e050-49d7-a7f8-4f0c47c7eaa0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"U1", "[", "t_", "]"}], "=", 
  RowBox[{
   RowBox[{"Sqrt", "[", 
    RowBox[{"4", 
     RowBox[{"L", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", "L"}], "-", 
        RowBox[{
         RowBox[{"R", "^", "2"}], " ", "C"}]}], ")"}]}]}], "]"}], "U", " ", 
   RowBox[{"E", "^", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "t"}], " ", 
      RowBox[{"R", "/", 
       RowBox[{"(", 
        RowBox[{"2", "L"}], ")"}]}]}], ")"}]}], "*", 
   RowBox[{"Cos", "[", 
    RowBox[{"\[Omega]", " ", "t"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7823854195165005`*^9, 3.782385561538144*^9}, {
  3.782385658594184*^9, 3.78238566236388*^9}, {3.782385928473879*^9, 
  3.7823859353664484`*^9}, {3.7823864498786955`*^9, 3.782386450030319*^9}, {
  3.78238649021782*^9, 3.782386495485733*^9}, {3.7823865616711855`*^9, 
  3.7823865654710674`*^9}},
 CellLabel->
  "In[779]:=",ExpressionUUID->"112622f3-3d94-4696-a77a-0f2d065c383c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"0.`", "\[VeryThinSpace]", "+", 
    RowBox[{"7.999999999999999`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "25000.`"}], " ", "t"}]], " ", 
  RowBox[{"Cos", "[", 
   RowBox[{"22355.088906108158`", " ", "t"}], "]"}]}]], "Output",
 CellChangeTimes->{
  3.782385567013502*^9, 3.7823856699815483`*^9, 3.7823857191555595`*^9, 
   3.782385883082409*^9, 3.7823859400529137`*^9, 3.782386400942561*^9, 
   3.7823864511881933`*^9, {3.7823864965558996`*^9, 3.7823865213791084`*^9}, {
   3.7823865665252047`*^9, 3.7823865758991365`*^9}},
 CellLabel->
  "Out[779]=",ExpressionUUID->"8185b72f-0fa2-4716-8457-3d1ad17dca73"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"U1", "[", "t", "]"}]], "Input",
 CellChangeTimes->{{3.7823865883667965`*^9, 3.7823865940805163`*^9}},
 CellLabel->
  "In[795]:=",ExpressionUUID->"a4700fc5-973f-453a-893f-266b2d09a069"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"0.`", "\[VeryThinSpace]", "+", 
    RowBox[{"7.999999999999999`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "25000.`"}], " ", "t"}]], " ", 
  RowBox[{"Cos", "[", 
   RowBox[{"22355.088906108158`", " ", "t"}], "]"}]}]], "Output",
 CellChangeTimes->{3.7823865951287174`*^9, 3.782386691490669*^9},
 CellLabel->
  "Out[795]=",ExpressionUUID->"7dfb609a-0465-428b-9f78-1bff9b76245b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"U1", "[", "t", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "600"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.782386458110712*^9, 3.78238648679996*^9}, {
  3.782386530038949*^9, 3.7823865313564262`*^9}},
 CellLabel->
  "In[782]:=",ExpressionUUID->"368f2761-e514-4535-9776-03f7f9a72362"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7823866145527916`*^9, 
  3.782386614562765*^9}},ExpressionUUID->"c36eb347-3020-4a23-8eea-\
bf0a7662e32d"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.782386609923665*^9, 
  3.782386609935628*^9}},ExpressionUUID->"0211e82a-e95c-4319-9084-\
f177a2a60bc8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Omega]", "=", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"L", " ", "C"}], "]"}]}], "*", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"1", "-", 
     RowBox[{
      RowBox[{"R", "^", "2"}], " ", 
      RowBox[{"C", "/", "4"}], "L"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7823856054811487`*^9, 3.7823856526595497`*^9}, 
   3.782386372958394*^9},
 CellLabel->
  "In[794]:=",ExpressionUUID->"8c6e27df-643b-475e-b9be-4e4d16904f1e"],

Cell[BoxData["22355.088906108158`"], "Output",
 CellChangeTimes->{3.782385951679823*^9, 3.7823863748543253`*^9, 
  3.7823864054385366`*^9, 3.7823866397036085`*^9, 3.7823866868840275`*^9},
 CellLabel->
  "Out[794]=",ExpressionUUID->"7bfd90cc-39e3-474a-8415-1021e63d696e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"L", "=", "0.02"}]], "Input",
 CellChangeTimes->{{3.7823863619994497`*^9, 3.7823863643102694`*^9}},
 CellLabel->
  "In[793]:=",ExpressionUUID->"ed5d5377-2df2-44f9-92b5-ea091b29ced5"],

Cell[BoxData["0.02`"], "Output",
 CellChangeTimes->{3.782386365124093*^9, 3.78238664352144*^9, 
  3.782386684092452*^9},
 CellLabel->
  "Out[793]=",ExpressionUUID->"41630cc4-83f4-43c9-922f-b534adba57dd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"C", "=", 
  RowBox[{"10", "^", 
   RowBox[{"-", "7"}]}]}]], "Input",
 CellChangeTimes->{{3.7823863781395392`*^9, 3.7823863812183065`*^9}},
 CellLabel->
  "In[792]:=",ExpressionUUID->"20680934-67b1-413a-95a9-544979af6a71"],

Cell[BoxData[
 FractionBox["1", "10000000"]], "Output",
 CellChangeTimes->{3.782386382035123*^9, 3.7823866463962593`*^9, 
  3.7823866812969284`*^9},
 CellLabel->
  "Out[792]=",ExpressionUUID->"6a04bd58-9adc-44f6-b8e8-ed9e23c90e8c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"R", "=", "1000"}]], "Input",
 CellChangeTimes->{{3.7823863839909277`*^9, 3.7823863853602304`*^9}},
 CellLabel->
  "In[787]:=",ExpressionUUID->"a6043832-7f89-42b0-8506-a116d893064f"],

Cell[BoxData["1000"], "Output",
 CellChangeTimes->{3.782386386152113*^9, 3.7823866502120905`*^9},
 CellLabel->
  "Out[787]=",ExpressionUUID->"29c0dd46-6b1c-4f5f-be1b-03474351f3da"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"U", "=", "4"}]], "Input",
 CellChangeTimes->{{3.782386388131854*^9, 3.7823863900377216`*^9}},
 CellLabel->
  "In[791]:=",ExpressionUUID->"4f4fed91-a26c-4adb-9415-186c931a0ed7"],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{
  3.7823863909044423`*^9, {3.782386653145213*^9, 3.782386678121461*^9}},
 CellLabel->
  "Out[791]=",ExpressionUUID->"fd131c7b-4fc3-4502-935c-987efc2dcb4d"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7823859677428675`*^9, 
  3.7823859700786314`*^9}},ExpressionUUID->"d9fae63a-ed23-4ead-8da8-\
15a14f6577ef"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "t_", "]"}], ":=", 
  RowBox[{"a", " ", 
   RowBox[{"E", "^", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "k"}], " ", "t"}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7823869150361996`*^9, 3.7823869668916397`*^9}},
 CellLabel->
  "In[796]:=",ExpressionUUID->"6a98539a-83f1-454f-8e61-2b8e272060db"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"m", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", "5.15"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"5.00", "*", 
       RowBox[{"10", "^", 
        RowBox[{"-", "6"}]}]}], ",", "4.93"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"17.0", "b"}], ",", "3.92"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"34", "b"}], ",", "2.91"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"56.5", "b"}], ",", "1.92"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"95.5", "b"}], ",", "0.91"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"280.5", "b"}], ",", "0"}], "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.782386980392499*^9, 3.7823871634833374`*^9}},
 CellLabel->
  "In[798]:=",ExpressionUUID->"4817a213-7733-44c9-9b98-544a9b58fdf3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "5.15`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.9999999999999996`*^-6", ",", "4.93`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.000017`", ",", "3.92`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["17", "500000"], ",", "2.91`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.0000565`", ",", "1.92`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.00009549999999999999`", ",", "0.91`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.0002805`", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.782387165630595*^9},
 CellLabel->
  "Out[798]=",ExpressionUUID->"5417e2ed-ab74-4aad-91c5-6ccda6dc8552"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"b", "=", 
  RowBox[{"10", "^", 
   RowBox[{"-", "6"}]}]}]], "Input",
 CellChangeTimes->{{3.7823870649579086`*^9, 3.782387068108451*^9}},
 CellLabel->
  "In[797]:=",ExpressionUUID->"c15c113a-d455-4ee7-afe7-92f026c14838"],

Cell[BoxData[
 FractionBox["1", "1000000"]], "Output",
 CellChangeTimes->{3.78238706969022*^9},
 CellLabel->
  "Out[797]=",ExpressionUUID->"695be0f1-759f-43ce-a7a6-d3815ef23fc6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindFit", "[", 
  RowBox[{"%", ",", 
   RowBox[{"f", "[", "t", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "k"}], "}"}], ",", "t"}], "]"}]], "Input",
 CellChangeTimes->{{3.7823872399457455`*^9, 3.7823872521492023`*^9}},
 CellLabel->
  "In[799]:=",ExpressionUUID->"c7a33639-1dd4-4ac5-a6b1-57d7a54d3bbc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"a", "\[Rule]", "5.268073381233378`"}], ",", 
   RowBox[{"k", "\[Rule]", "17748.16216311575`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7823872534611*^9},
 CellLabel->
  "Out[799]=",ExpressionUUID->"7c48d812-c6b2-4ee1-94d7-c2e9c89fb1bb"]
}, Open  ]]
},
WindowSize->{1280, 637},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1192, 34, 45, "Input",ExpressionUUID->"b0260989-7d08-49d8-a6d7-5bb51d0b7a85"],
Cell[1775, 58, 2139, 61, 81, "Output",ExpressionUUID->"d8699588-1502-4518-bd47-519481ab83eb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3951, 124, 353, 9, 45, "Input",ExpressionUUID->"3f6d9f43-0877-4d8f-82cf-714a04ccbb6f"],
Cell[4307, 135, 4348, 92, 243, "Output",ExpressionUUID->"cd1f634c-67a0-49fc-9082-86f5f213c5cb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8692, 232, 1054, 31, 45, "Input",ExpressionUUID->"54354227-89e1-4082-bace-7164fa82c29d"],
Cell[9749, 265, 749, 24, 61, "Output",ExpressionUUID->"44fcb663-8e37-47e7-9e7f-5954750fb852"]
}, Open  ]],
Cell[10513, 292, 209, 4, 45, "Input",ExpressionUUID->"629c8f48-5580-47ca-8251-d1b799457c5c"],
Cell[CellGroupData[{
Cell[10747, 300, 187, 3, 44, "WolframAlphaLong",ExpressionUUID->"998216a5-fbdb-428c-87af-03529c662cd5"],
Cell[10937, 305, 37645, 769, 660, "Print",ExpressionUUID->"840cd1ac-80c5-4db9-a60f-206f68780670"]
}, Open  ]],
Cell[48597, 1077, 156, 3, 28, "Input",ExpressionUUID->"e7532be7-0638-473e-a0e0-0e2d440d6cad"],
Cell[CellGroupData[{
Cell[48778, 1084, 190, 3, 44, "WolframAlphaLong",ExpressionUUID->"4e9a9c39-8fc1-49e0-8dcb-381610575434"],
Cell[48971, 1089, 70238, 1449, 978, "Print",ExpressionUUID->"4ee30cf2-05ff-4d05-a8d4-c981959633b6"]
}, Open  ]],
Cell[119224, 2541, 128, 3, 28, "Input",ExpressionUUID->"1ca8e1a4-86a2-4833-b4d2-8a5f7e143de0"],
Cell[CellGroupData[{
Cell[119377, 2548, 213, 4, 45, "Input",ExpressionUUID->"e7cf6b1f-bb5b-4f40-8086-521de8f3a874"],
Cell[119593, 2554, 185, 4, 32, "Output",ExpressionUUID->"e636ecc4-a65e-4ef4-8ca4-e45d8b5cda7f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[119815, 2563, 154, 3, 45, "Input",ExpressionUUID->"b2031962-f5f9-477a-840f-008356ae9be3"],
Cell[119972, 2568, 155, 3, 32, "Output",ExpressionUUID->"9246f60a-e2cb-457e-95ae-d339ce9141a8"]
}, Open  ]],
Cell[120142, 2574, 259, 5, 45, "Input",ExpressionUUID->"720f8d09-d8c4-4d79-9f0c-f7269fe12460"],
Cell[120404, 2581, 344, 7, 45, "Input",ExpressionUUID->"7a6c7418-e050-49d7-a7f8-4f0c47c7eaa0"],
Cell[CellGroupData[{
Cell[120773, 2592, 971, 27, 45, "Input",ExpressionUUID->"112622f3-3d94-4696-a77a-0f2d065c383c"],
Cell[121747, 2621, 723, 16, 32, "Output",ExpressionUUID->"8185b72f-0fa2-4716-8457-3d1ad17dca73"]
}, Open  ]],
Cell[CellGroupData[{
Cell[122507, 2642, 208, 4, 28, "Input",ExpressionUUID->"a4700fc5-973f-453a-893f-266b2d09a069"],
Cell[122718, 2648, 492, 12, 32, "Output",ExpressionUUID->"7dfb609a-0465-428b-9f78-1bff9b76245b"]
}, Open  ]],
Cell[123225, 2663, 370, 9, 45, "Input",ExpressionUUID->"368f2761-e514-4535-9776-03f7f9a72362"],
Cell[123598, 2674, 154, 3, 28, InheritFromParent,ExpressionUUID->"c36eb347-3020-4a23-8eea-bf0a7662e32d"],
Cell[123755, 2679, 152, 3, 28, InheritFromParent,ExpressionUUID->"0211e82a-e95c-4319-9084-f177a2a60bc8"],
Cell[CellGroupData[{
Cell[123932, 2686, 483, 14, 45, "Input",ExpressionUUID->"8c6e27df-643b-475e-b9be-4e4d16904f1e"],
Cell[124418, 2702, 270, 4, 32, "Output",ExpressionUUID->"7bfd90cc-39e3-474a-8415-1021e63d696e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[124725, 2711, 205, 4, 28, "Input",ExpressionUUID->"ed5d5377-2df2-44f9-92b5-ea091b29ced5"],
Cell[124933, 2717, 203, 4, 32, "Output",ExpressionUUID->"41630cc4-83f4-43c9-922f-b534adba57dd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[125173, 2726, 245, 6, 45, "Input",ExpressionUUID->"20680934-67b1-413a-95a9-544979af6a71"],
Cell[125421, 2734, 231, 5, 55, "Output",ExpressionUUID->"6a04bd58-9adc-44f6-b8e8-ed9e23c90e8c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[125689, 2744, 205, 4, 28, "Input",ExpressionUUID->"a6043832-7f89-42b0-8506-a116d893064f"],
Cell[125897, 2750, 180, 3, 32, "Output",ExpressionUUID->"29c0dd46-6b1c-4f5f-be1b-03474351f3da"]
}, Open  ]],
Cell[CellGroupData[{
Cell[126114, 2758, 200, 4, 28, "Input",ExpressionUUID->"4f4fed91-a26c-4adb-9415-186c931a0ed7"],
Cell[126317, 2764, 204, 4, 32, "Output",ExpressionUUID->"fd131c7b-4fc3-4502-935c-987efc2dcb4d"]
}, Open  ]],
Cell[126536, 2771, 156, 3, 28, "Input",ExpressionUUID->"d9fae63a-ed23-4ead-8da8-15a14f6577ef"],
Cell[126695, 2776, 352, 10, 45, "Input",ExpressionUUID->"6a98539a-83f1-454f-8e61-2b8e272060db"],
Cell[CellGroupData[{
Cell[127072, 2790, 879, 28, 28, "Input",ExpressionUUID->"4817a213-7733-44c9-9b98-544a9b58fdf3"],
Cell[127954, 2820, 715, 20, 55, "Output",ExpressionUUID->"5417e2ed-ab74-4aad-91c5-6ccda6dc8552"]
}, Open  ]],
Cell[CellGroupData[{
Cell[128706, 2845, 243, 6, 28, "Input",ExpressionUUID->"c15c113a-d455-4ee7-afe7-92f026c14838"],
Cell[128952, 2853, 178, 4, 55, "Output",ExpressionUUID->"695be0f1-759f-43ce-a7a6-d3815ef23fc6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[129167, 2862, 334, 8, 45, "Input",ExpressionUUID->"c7a33639-1dd4-4ac5-a6b1-57d7a54d3bbc"],
Cell[129504, 2872, 290, 7, 32, "Output",ExpressionUUID->"7c48d812-c6b2-4ee1-94d7-c2e9c89fb1bb"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

